home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2626.ZIP / INSTALL.BAT < prev    next >
DOS Batch File  |  1991-03-03  |  8KB  |  201 lines
  1. ECHO OFF
  2. CLS
  3. ECHO                         ╔══ ╔══ ╔═╗ ╔═╗  ╔══ ═╦═
  4. ECHO                         ╠═  ╠═  ╠═╣ ╠═╣  ╠═   ║
  5. ECHO                         ║   ╚══ ║ ║ ║ ║  ╚══  ║
  6. ECHO     ═════════════════════════════════════════════════════════════════════
  7. ECHO          Installation - FLatfile Application Generator System Program
  8. ECHO     ═════════════════════════════════════════════════════════════════════
  9. IF EXIST 4P.ID GOTO BDDSK
  10. IF EXIST 3F.ID GOTO BDDSK
  11. SET ID=ERR
  12. IF %2x==x SET DSK=A
  13. IF %2x==x GOTO CONT1
  14. IF %2==a SET DSK=A
  15. IF %2==A SET DSK=A
  16. IF %2==b SET DSK=B
  17. IF %2==B SET DSK=B
  18. IF %DSK%==A GOTO CONT1
  19. IF %DSK%==B GOTO CONT1
  20. GOTO err
  21. :CONT1
  22. IF EXIST %DSK%:4P.ID SET ID=4P
  23. IF EXIST %DSK%:3F.ID SET ID=3F
  24. IF %ID%==ERR GOTO BDDSK1
  25. IF %ID%==4P ECHO                       for FoxPro and Dbase IV
  26. IF %ID%==3F ECHO                       for FoxBase and Dbase III+
  27. ECHO         NOTE! Installed Program Requires Approximately 400 KB of
  28. ECHO         Disk Space!  Program will be installed on default device
  29. IF %1x==x GOTO err
  30. IF %1==D SET FLV=D
  31. IF %1==d SET FLV=D
  32. IF %1==f SET FLV=F
  33. IF %1==F SET FLV=F
  34. IF %FLV%==D GOTO Dflv
  35. IF %FLV%==F GOTO Fflv
  36. GOTO err
  37. :Fflv
  38. IF %ID%==4P ECHO                  You're Installing the FoxPro version.
  39. IF %ID%==3F ECHO                  You're Installing the FoxBase version.
  40. GOTO CONT3
  41. :Dflv
  42. IF %ID%==4P ECHO                  You're Installing the Dbase IV version.
  43. IF %ID%==3F ECHO                  You're Installing the Dbase III+ version.
  44. :CONT3
  45. ECHO            The system will be installed from your %DSK% drive.
  46. IF NOT EXIST \FLAGS\MAIN\MASTER.DBF GOTO NEW
  47. ECHO  ╔═════════════════════════════════════════════════════════════════════╗
  48. ECHO  ║          FLAGS HAS BEEN INSTALLED...THIS WILL OVERWRITE             ║
  49. ECHO  ║          WHAT YOU'VE DONE SO FAR....THINK ABOUT IT!!                ║
  50. ECHO  ╚═════════════════════════════════════════════════════════════════════╝
  51. :NEW
  52. ECHO.
  53. ECHO               To Quit Now, hold down [Ctrl] Key and Press [C]
  54. PAUSE
  55. ECHO.
  56. ECHO               Please wait a few moments.....
  57. ECHO.
  58. MD \FLAGS > nul
  59. CD \FLAGS
  60. %DSK%:FLAGS -SFERRET -O -D
  61. COPY %DSK%:INSTALL.BAT MAIN
  62. COPY %DSK%:README.1ST MAIN
  63. :CLNUP
  64. IF %FLV%==D GOTO clnD
  65. IF %ID%==3F GOTO clnFb
  66. REM FoxPro Cleanup...nuke DBIV
  67. DEL *.DBO
  68. DEL MAIN\*.NDX
  69. DEL HOUSE\*.NDX
  70. DEL HSE_TYPE\*.NDX
  71. GOTO DONE
  72. :ClnFb
  73. REM FoxBase Cleanup...nuke DBIII+
  74. DEL *.PRG
  75. DEL MAIN\*.NDX
  76. DEL HOUSE\*.NDX
  77. GOTO DONE
  78. :CLND
  79. IF %ID%==3F GOTO cln3
  80. REM Dbase IV Cleanup... Nuke FoxPro
  81. DEL *.FXP
  82. DEL MAIN\*.IDX
  83. DEL HOUSE\*.IDX
  84. DEL HSE_TYPE\*.IDX
  85. GOTO DONE
  86. :Cln3
  87. REM Dbase III+ Cleanup... Nuke FoxBase
  88. DEL *.FOX
  89. DEL MAIN\*.IDX
  90. DEL HOUSE\*.IDX
  91. GOTO DONE
  92. :ERR
  93. cls
  94. ECHO  ╔═════════════════════════════════════════════════════════════════════╗
  95. ECHO  ║   Error!!   Error!!   As in, you didn't do it right!                ║
  96. ECHO  ║   Make sure you're on the drive you want FLAGS to be                ║
  97. ECHO  ║   Installed on (like C:, for Example).  When you're                 ║
  98. ECHO  ║   ready to install, you Enter:                                      ║
  99. ECHO  ║                                                                     ║
  100. ECHO  ║   (1):Install (2)  (1)                                              ║
  101. ECHO  ║                                                                     ║
  102. ECHO  ║   Where (1) is the letter for the disk you've got the               ║
  103. ECHO  ║   Flags in (either A or B)                                          ║
  104. ECHO  ║                                                                     ║
  105. IF %ID%==3F GOTO EX1
  106. IF %ID%==4P GOTO EX2
  107. ECHO  ║   And (2) is either a "F" for Fox or a "D" for Dbase.               ║
  108. GOTO CONT4
  109. :EX1
  110. ECHO  ║   And (2) is either a "F" for FoxBase or a "D" for Dbase III+.      ║
  111. GOTO CONT4
  112. :EX2
  113. ECHO  ║   And (2) is either a "F" for FoxPro or a "D" for Dbase IV.         ║
  114. :CONT4
  115. ECHO  ║   Example:  For those of you who are using a "B" drive (and you     ║
  116. IF %ID%==3F GOTO EX3
  117. IF %ID%==4P GOTO EX4
  118. ECHO  ║   know who you are), who are installing a Dbase, type in:           ║
  119. GOTO CONT5
  120. :EX3
  121. ECHO  ║   know who you are), who are installing Dbase III+, type in:        ║
  122. GOTO CONT5
  123. :EX4
  124. ECHO  ║   know who you are), who are installing Dbase IV, type in:          ║
  125. :CONT5
  126. ECHO  ║   B:Install D B                                                     ║
  127. ECHO  ║                                                                     ║
  128. ECHO  ║   Or, for those of you who are using an "A" drive who are           ║
  129. IF %ID%==3F GOTO EX5
  130. IF %ID%==4P GOTO EX6
  131. ECHO  ║   installing Fox, type in:                                          ║
  132. GOTO CONT6
  133. :EX5
  134. ECHO  ║   installing FoxBase, type in:                                      ║
  135. GOTO CONT6
  136. :EX6
  137. ECHO  ║   installing FoxPro, type in:                                       ║
  138. GOTO CONT6
  139. :CONT6
  140. ECHO  ║   A:Install F A                                                     ║
  141. ECHO  ║                                                                     ║
  142. ECHO  ║  Now, Try Again!!                                                   ║
  143. ECHO  ╚═════════════════════════════════════════════════════════════════════╝
  144. GOTO bye
  145. :DONE
  146. cls
  147. ECHO  ╔═════════════════════════════════════════════════════════════════════╗
  148. IF %FLV%==D GOTO Dst
  149. IF %ID%==3F GOTO Fb
  150. ECHO  ║  You've Installed the FoxPro Version of Flags (you dog, you)        ║
  151. ECHO  ║  To Begin the Flags system, type in "FoxPro Flags" from the \FLAGS  ║
  152. GOTO CONT7
  153. :Fb
  154. ECHO  ║  You've Installed the FoxBase Version of Flags (you dog, you)       ║
  155. ECHO  ║  To Begin the Flags system, type in "FoxPlus Flags" from the \FLAGS ║
  156. GOTO CONT7
  157. :DST
  158. IF %ID%==3F GOTO D3
  159. ECHO  ║  You've Installed the Dbase IV Version of Flags (you dog, you)      ║
  160. ECHO  ║  To Begin the Flags system, type in "Dbase Flags" from the \FLAGS   ║
  161. GOTO CONT7
  162. :D3
  163. ECHO  ║  You've Installed the Dbase III+ Version of Flags (you dog, you)    ║
  164. ECHO  ║  To Begin the Flags system, type in "Dbase Flags" from the \FLAGS   ║
  165. :CONT7
  166. ECHO  ║  Directory.  Remember to put a Path to Your xBase Product or you    ║
  167. ECHO  ║  won't get very far (as in nowhere).                                ║
  168. ECHO  ║                                                                     ║
  169. ECHO  ║  Remember, Flags works under:                                       ║
  170. ECHO  ║                                                                     ║
  171. ECHO  ║  Dbase III+ V1.1, Dbase IV V1.1, FoxBase, and FoxPro V1.02          ║
  172. ECHO  ║  See the files \FLAGS\MAIN\README.DOC and README.1st for some       ║
  173. ECHO  ║  simple documentation.  Registered users get a lot more.            ║
  174. ECHO  ║                                                                     ║
  175. ECHO  ║                                                                     ║
  176. ECHO  ║                  FLAGS is from:                                     ║
  177. ECHO  ║                  dbF Software Productions                           ║
  178. ECHO  ║                  PO Box 37194                                       ║
  179. ECHO  ║                  Cleveland, Ohio 44137-0194                         ║
  180. ECHO  ╚═════════════════════════════════════════════════════════════════════╝
  181. GOTO BYE
  182. :BDDSK
  183. ECHO  ╔═════════════════════════════════════════════════════════════════════╗
  184. ECHO  ║   Error!!   Error!!   As in, you didn't do it right!                ║
  185. ECHO  ║   Make sure you're on the drive you want FLAGS to be                ║
  186. ECHO  ║   Installed on (like C:, for Example), not the floppy               ║
  187. ECHO  ║   you're installing from...                                         ║
  188. ECHO  ╚═════════════════════════════════════════════════════════════════════╝
  189. GOTO BYE
  190. :BDDSK1
  191. ECHO  ╔═════════════════════════════════════════════════════════════════════╗
  192. ECHO  ║   Error!!   Error!!   As in, you didn't do it right!                ║
  193. ECHO  ║   I don't think that there's a valid FLAGS installation disk        ║
  194. ECHO  ║   sitting in your %DSK% drive right now...check it out and try          ║
  195. ECHO  ║   again...                                                          ║
  196. ECHO  ╚═════════════════════════════════════════════════════════════════════╝
  197. :bye
  198. SET ID=
  199. SET DSK=
  200. SET FLV=
  201.